Исходный код

Option Explicit
Call GetMessagesCount("SYSADMIN")


'==============================================================================
'Поместить объекты, вложенные в отобранные почтовые сообщения, на Рабочий стол

Sub GetMessagesCount(UserFrom)
        
        Dim FiltMsgs, StrUser
        
        'Среди всей почты пользователя отобрать сообщения от UserFrom
        StrUser= ThisApplication.Users(UserFrom).Description
        Set FiltMsgs = ThisApplication.Messages
        With FiltMsgs
                .Filter.From = StrUser
                .Filter.To = ThisApplication.CurrentUser.SysName 
                .Filter.On = True 'включить фильтр сообщений
        End With
        
        'Перемещаем объекты-вложения на Рабочий стол.
        MsgBox "В почтовом ящике " & FiltMsgs.Count & " сообщений от пользователя " &_
                StrUser & ".", vbInformation
End Sub 
'==============================================================================